Fudge It! 

by Don Fudge 



Shape Sequence Animation 
L 



ast month I began a discussion 
■of animation by describing how- 
to effect scrolling on the sc reen. That 
launches i is into a look at shape se- 
quence animation. 

With vector shapes you can use 
whatever shape table numbers you 
want, in whatever order you want, 
and am numlver of shapes can occur 
in a sequence For example, suppose 
you wanted ; '< make a stick-figure 
man "walk." Vou might have a se- 
quent of 4. 7. 6, ft, 1, 9, 3. 5, 2, 7 for 
shape numbers I your sequence 
shape- That ten sequence-shape 
numbers, with repeating allowed. 
Shape numbers are reierring to 
\i tplesoft sh - " i nmbei w hich get 
mil* rs !)<• hum 1 of then hape table 
index, ion needi t use ' apes' num- 
\y rs from ass. i ,bly. but in Rasie it's 
the onh conven * t i t v a\ to >R \\\ or 
m RAW. It mighi be moreeonvenieiil 
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Fable. Which Screen, Which Shape, Draw ami Erase chart. 



to have your shape table numbers be 
the same as the shape sequence num- 
bers. One thing that makes this not 
particularly important is the fact that 
you'll often use specific shapes more 
than once in a sequence. 

Walking 

Think of w alking. There are a cou- 
ple of times in a walking sequence 
w hen, viewed from the side, one spe- 
cific shape could represent more than 
one specific aspect of the sequence. 
There's no sin in using the number 4 
shape twice, for example. So an algo- 
rithm to have a stick figure w alk w ill 
be constructed like so: 

1) Erase, by XDRAW, the shape at old 
coordinates (OX.OY). 

2) Draw, by XDRAW, the shape at 
new coordinates (X,Y). 

3) Dump the new coordinates into 
the old coordinates (ox = X:OY = Y) . 

4) Calculate the new ccx)rdinates using 
a step value, X = X + STEP. If the figure 
is moving vertically as well as 
horizontally, such as walking 
upstairs, also do Y = Y + STEP. 

5) Go back to 1 . 

Remember that if you're doin^ 
page flipping things will be more 
complex and you'll be drawing on 
one screen while displaying the next. 
The fundamentals of this method 
were covered in my April column. 
Page flipping is a way to stop show- 
ing the drawing process and begin 
showing the drawing results only. 
The effect of this is to smooth things 
out and make the animation not look 
flicker}. 



Address correspondence to Don Fudge at 
Amnt-Garde Creations. /'(> Box 30160. Eu- 
gene, OH 97403 
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This is a good place to discuss block 
shape sequences. With block shapes, 
it's not just a matter of drawing prop- 
er shape sequences in the proper 
places at the proper times and incre- 
menting by a constant step value for 
the next coordinate. It's true that you 
can place vector shapes anywhere on 
the screen at any time, with illegal 
positions at X<0,X>279,Y<0 and Y>191 
(so use these for parameter checking) . 
But block shapes cannot be handled 
likewise. 

With block shapes you must stay- 
within Y = and Y = 191 and also X byte 
column (horizontal offset) () and 39. 
And you can't move less than 1 byte 
horizontally if you have only one 
shape, unless you want to use rela- 
tively slow shift animation. See Hi- 
Res Secrets for details on that. So, 
you'll almost always be using what's 
known as pre-shifted shapes, in se- 
quences of seven. 

Pre-shifted shape sequences are 
block shape sequences that allow less- 
than-7-dot (1 visible byte) moves hor- 
izontally. For similar graphics ob- 
jects, such as seven identical flying 
saucers, pre-shifted shapes are a sim- 
ple matter of running an automatic 
sequence creator (Listing 1) on the 
first flying saucer and saving the re- 
sultant seven-shape sequence as a 
table. Take a look at Figures 1, 2a 
and 2b. 

In Figure 1 we see a step 1 (per 
move), seven-shape block shape se- 
quence that is 3 b\1es wide, and a 
step 2, seven-shape block shape se- 
quence that is 4 bytes wide. Consider 
the left and right boundaries of these 
shape blocks to be the actual block 
shape boundaries. Notice how 
throughout the running of a shape se- 
quence, neither the X coordinate nor 
the Y coordinate changes one iota. It 
is only when the sequence is finished 
that we add the step value to the 
horizontal byte-column coordinate. 
This is illustrated in Figure 2b. In 
Figure 2a, however, the X coordinate 
is incremented three times per se- 
quence. In both diagrams, HR means 
horizontal right coordinate, HI. 
means horizontal left coordinate, N'T 
means vertical top coordinate, and 
VB means vertical bottom coordinate: 
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Again, block shapes have only 40 
possible X coordinates per screen, not 
280 like vector shapes, because block 
shapes use byte-column coordinates, 
not regular X coordinates, in the 
horizontal direction. 

Block Shape Sequences 

In Figure 1, shapes 1-10 were ex- 
tracted from a vector shape table 
(MAN) to create the nine shapes in 
M ANA's block shape sequence table, 
which was updated three times per 
sequence in a very non-standard 
way. But from MAN A was created 
MANC, a standard seven-shape ever- 
incrementing sequence of block 
shapes (Figure 2a). All it took was 



Listing I. Sequence Creator. 



* C'NERR SOTO 6399*1 

1 PRINT CHR* <4>i"BL0fiDTEST H (C0LL2186V*: i,0SUB GOTO S08 

2 HOHF : INPUT " SHOF'E TABLE NAME: ";i.TN$: IF LEN < STH* > = THEN 

4 D$ - CHRf (4>: PRINT D*"BL0HD" ,STN$ 

5 HOME : UTPB 21: INPUT "SHAPE «: " ;&HN: POKE 7,SHN 

15 POkE - 16304.0: POkE - 16297.8 

16 MS * 1:BS = 

20 INPUT "UT0P:";UT: INPUT "OBOT : " ;UB: INPUT "HRIGHT: " ;HR: INPUT "HLEFT: ' 



;Hl 



50 
42 
43 
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44 
45 
47 



48 
49 
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POKE 252. UT: POKE 253, UB: POKE 254. HR: POKE 255 , HL 
CftLL 2116 

HOHE : UTftB 21: INPUT "00 V0U WNNT ANOTHER SHQPE? < V'N ,: " >QW$: IF 
( OH J ' = THEN 43 
IF HSC -0H$) < > 39 THEN HOME : UTBB 21: G0SUB 63090: GOTO 600 
60T0 5 

POKE - 16303.0: POKE - 16298.0: HOME : UTflB 1: PRINT " USE THE PODOLfc 
S TO MOUE THE DOT TO THE UPPER LEFT RECTANGLE POINT. HIT PDL BUT 
TON. THEN MOUE THE DOT TO THE LOHER RIGHT RECTANGLE POINT. HIT POL 1 
BUTTON. " : GOSUE 63868 
POKE 232,248: POKE 233,8: SCALE= 1: ROT- 64 
POKE - 16304.0: POKE - 16297. 
HOME :P1 = PDL < 1 >: IF PI > 150 THEN 50 
55 P8 = PDL (.0): XDRHH 1 AT P0.P1:X\ = PO:W. = pi 
60 PI = PDL C 1 ): IF PI > 158 THEN 60 

65 FOR OH = 1 TO 280: NEXT : HOME : UTAB 21: PRINT "X: "P8: PRINT "V: "Pi 

78 P0 = POL tO): XDRAH 1 AT Xft.VK: XORAH 1 AT P0,P1:XV. = P8:V>. = Pi 
80 BO = PEEK ( - 16267.: IF Be- > 127 AND FL = 8 THEN FL = 1: GOTO 180 
85 Bl = PEEK ( - 16286): IF Bl > 127 AND SG - THEN SG = 1: GOTO 118 
98 GOTO 66 

100 UT = Pl-HL = INT <P0 / 7): PRINT CHR$ (7): IF SG = 1 THFN 128 
105 GOTO 68 

118 UB = Pl.-HR = INT <P8 - ? >; PRINT CHR$ I 7 ,■ IF FL = 1 THEN 120 
115 GOTO 68 

120 HOME : UTAB 21: PRINT "HOR. — FROM: "HL" TO "HR" WIDTH; "• HR HI • 

125 XDRAH 1 AT P8.Pl 

130 PRINT "UER. FROM: "UT" TO "UB" HEIGHT: "< UB - UT): UTAB 23: PRINT "j 

OT THIS DOWN! (.HIT &NV KEV TO CONT. •": 60SUB 63018 
150 POKE 252,UT: POKE 253.UB0T: POKE 254, HRIGHT: POKE 255, HLEFT 
155 HCOLOR= 3 

160 HPLOT 7 * HRIGHT + T.UT TO 7 * HRIGHT ♦ 7,UB TO 7 ♦ HLEFT, UB TO 7 * H 

LEFT, LIT TO 7 ♦ HRIGHT * ,'.<'! 
170 IF ZO = 1 THEN RETURN 

Listing continued 
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LOCK-IT-UP 

DISKETTE COPY-PROTECTION 
AND DUPLICATION SYSTEMS 
FOR THE APPLE COMPUTER 

The Lock-lt-Up systems are sophisticated, menu driven 
copy-protection and duplication utilities for the Apple II 
Computer. They feature several levels of protection which 
make standard diskettes uncopyable by even the most 
sophisticated nibble copy programs currently available. 

• All sectors on the diskette can still be used. 

• Data files can be loaded and/or saved to either the protected diskette 
or an unprotected diskette. 

• Memory will be cleared and the disk will reboot if the reset key is 
pushed. 

• The copying systems support up to 14 disk drives. 

• Complete data-verification is optional during copy. 

• Sequential serial numbers are assigned to each diskette produced by 
the system 

• Master diskettes created with the system contain an I D stamp that 
you select. The I.D. stamp must be correctly specified before any 
diskettes can be duplicated. This prevents other Lock-lt-Up owners 
from copying your diskettes. 

• Extensive support is provided should you have any problems or 
special needs. 

• Our system is supported by numerous disk copying services should 
you need a large quantity of diskettes duplicated. 

Either system is available for $225, which includes three diskettes, an 
informative manual, and a non-exclusive license to copy as many 
diskettes as needed. 

ORDER NOW! Call collect for COD, Mastercard or Visa orders 
DEALER INQUIRIES INVITED 







: m 





DOS VERSION: 

• Any standard DOS 3.3 diskette can be protected. 

• DOS command names can be changed and/or deleted. 

• Autorun can be used to prevent the listing of a program or the use of 
any basic commands outside of a program. 

• A faster DOS can be used in order to decrease disk access time by up 
to 50%! 

REQUIRES: 48K Apple II or 11+ with Applesoft in ROM or language 
system and at least two disk drives. 

PASCAL VERSION: 

• Any standard Apple Pascal 1.1 diskette can be protected 

• Files may be transferred to a standard Pascal diskette, but they will 
not run unless they are on the protected diskette. 

• Easily added to any program by use of a Regular Unit. 

• Compatible with Apple Fortran. 

REQUIRES: Apple Pascal and at least two disk drives. 

DOUBLE - GOLD 

SOFTWARE 



13126 ANZA DRIVE 
SARATOGA. CA 95070 
(408) 257-2247 
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Listing continued. 



188 PRINT : INPUT "IS THE RECTRNGLE DONE O.K.? < V/N >: " ;RN»: IF LEN (ON*) 
= 8 THEN ISO 

185 IF RSC <RN$> = 78 THEN SG = 0: HCOLOR= 9:FL = 0:ZQ = 1: GOSUB 160:ZQ 

= 0: HCOLORs 3: GOTO 50 
191 GOTO 600 

204 HONE : UTPB 21 

205 PRINT "SHftPE * "ST 

208 POKE 7, ST: POKE - 16304,0: POKE - 16297,0 

210 IF QZ = 8 THEN QZ = 1:Z0 = 1: HCOLOR= 8: GOSUB 160: HCOLOR= H 

215 NN = NN + 1 

220 CRLL 2048 

225 IF NN > = NS THEN 300 

248 FOR 00 = 1 TO SS: CRLL 2186: NEXT 

245 ST = ST + 1 

258 GOTO 284 

300 D$ = CHR* ( 4 

301 UTOB 21 

702 INPUT "FILE NflHE: ";N$: IF LEN CN$> = THEN 302 

303 INPUT "DID VOU GET IT RIGHT'' <V/N>:";Z«: IF LEN <Z$; = THEN 302 
384 IF RSC (Z$> < > 89 THEN 302 

307 TEXT : UTAB 1: HOME : GOSUB 5040 

308 LL = 256 * LS 

309 PL = LS 

310 PRINT D*"BSAUE'";N$;",fl2304,L";LL 

312 PRINT "LfiST SHRPE RND RLL THE SHRPES THRT CfiME BEFORE IT TOOK UP "LL" 
BVTES. ": PRINT "LAST SHRPE: ";LS: PRINT "<HIT RNV KEV TO CONTINUE):" 

: GOSUB 63810 
400 GOTO 600 

402 HOME : UTRB 21: INPUT "STEP SIZE: ";SS 

403 PRINT : INPUT "# OF SHRPES IN SEQUENCE: "iNS: PRINT : INPUT "# OF 1ST 

BLOCK-SHAPE IN SEQUENCE TO BE SRUED: "iST 
464 PRINT : INPUT "RERDV TO BEGIN RUTOMRTIC SCRN & SRUE PROCESS FOR TH 
IS SEQUENCE? < V'N >: " iQH$: IF LEN CQH*> = THEN 600 

405 IF RSC < QH$ > < > 89 THEN 608 
410 GOTO 204 

680 POKE - 16303.0: POKE - 16298,8: HOME : UTRB 1: INUERSE : HTRB IB: PRINT 
"MENU: " : NORMRl 

601 SG = 0:FL = 0:ZQ = 0:Q2 = 0:NN = 

602 SCALE- S: HCOLOR= H: RGT= R 

603 PRINT "(HIT ESC TO QUIT)": PRINT 

685 PRINT "( >ABORT SCREEN START OUER": PRINT 

610 PRINT "(DLORD BLOCK SHRPE TABLE": PRINT 

648 PRINT "(2>6IUE HOR. STEP SIZE FOR BLOCK-SHAPE SEQUENCE 8. SRUE ENT 

IRE SEQUENCE": PRINT 
$58 PRINT "( 3)DEFINE BLOCK SHRPE HITH PADDLES": PRINT 
660 »RINT "( 4 HJIEH SCREEN": PRINT 

698 FLASH : PRINT "(CHOOSE 0-4):";: NORMA! : GET A$: PRINT CHR$ <13) 
692 IF R=.C (R$> = 27 THEN TEXT : HOME : END 
700 IF LEN <A*> = THEN 690 

7!8 IF "RL t A J ) < OR UAL C A$ ) /> 4 THEN 698 

719 IF A$ = "8* THEN 912 

720 ON URL <Q%> 60T0 2,402,47,920,688 

721 GOTO S86 

91.' INPUT "SURE VOU HANT TO ABORT SCREEN? (V^N):"iQH$: IF LEN <QH$> = THEN 

912 

:^13 IF RSC <u'H$) < ' 89 THEN 600 
I 914 HGR : GOTO 608 

^28 POKE - 16304.0: POKE - 16297,0: UTAB 21: GOSUB B3008: GOTO 600 
I 2588 POKE 2296.1: POKE 2297,8: POKE 2296,4: POKE 2299,0: POKE 2308,4: POKE 
2301,0 

I 2510 POKE - 16381,0 

i 51' POKE - 16303.0: POKE - 16298,0: INUERSE : PRINT "IF VOU ENTERED TH 
IS PROGRAM HITH SOME- THIN6 ON THE HI-*ES SCREEN VOU WANTED TOSRUE, 
HH THE SPACE BAR NOH OTHERWISE HIT ANV KEV EXCEPT THE SP 

RCF BAP..": NORMAL 

251.2 PK a PEEK ( - 16364): IF PK > 127 THEN POKE - 16368,0: GOTO 2514 

I 25 1 3 GC TO 25 1 1 

| :514 IT PK = 168 THEN 2520 

] 25:?; HGR 

2528 RETURN 

',y4y HijHE : UTRB 21: INPUT OF LAST SHAPE IN BLOCK -SHAPE TABLE: ";LS: IF 
1 OR Li • 23 THEN 5840 
50 HtTURN 

6,809 PRINT " ,HIT RNV KEV TO CONT 

I HUE •: 

• -ny F* - PEtK < - 16334): IF PK > 127 THEN POKE - 16368,0: RETURN 

£ 3820 GOTO 638 Its 

-^'^ PRINT CHR* <7>: POKE 216,0 

?39 c -l PP = PEEk ■'s2Z>\ IF PP = 254 THEN RESUME 

t -;994 POKE - 16303,0: POKE - 16298,0 

',3995 PRINT "VOUR ERROR IS CODE #: "PP: GOSUB 63808: CRLL 54915: GOTO 688 



j loading various vector and block 
shapes into SCANA (see the April col- 
umn) and saving them at pre-calcu- 
lated coordinates (saving them as 
various shape table numbers). 

Looking at Figure 2a again, notice 
that the block shapes are 5 bytes 
wide, but could just as easily have 
been 4 bytes wide. (The extra "blank" 
byte was used for experimental pur- 



poses.) Now, look at the first and 
seventh shapes. Where would we put 
the next (eighth) shape if we were to 
continue the sequence, and what 
would it look like? 

Well, first notice that each shape is 
being moved 2 dots to the right of the 
previous one. Then observe that we'll 
be looking for a shape like sequence 
number 1 to continue the "move- 



ment." Also note that X=49 will be 
the horizontal coordinate of the 
center of the next shape, so the first 
shape in the sequence will end up 
centered exacdy on the line again, 
just as it is in its diagram position. 
Since the figure in the block shape se- 
quence will move over exactly 2 bytes 
and the step value, in dots, between 
each of the figures in the shape se- 
quence is 2, then that means the step 
value is equal to the required hor- 
izontal byte-coordinate increment 
we'll be using just before starting the 
sequence over. 

What this means is that during the 
display of the seven shapes shown, all 
block shape coordinates stay exactly 
the same. It's only just before the se- 
quence restart that the horizontal 
byte coordinate gets increased by 2. 
So what's happening, in effect, is that 
most of the movements of the block 
shape figures take place within the 
boundaries of the block shape, and 
not by coordinate manipulation. In- 
cidentally, all shape numbers given 
in MANA and MANC are taken from 
MAN, a vector shape table for a man 
walking. The actual shape numbers 
you'll refer to as you build and use a 
block shape table such as MANC are 
shapes 1-7, equivalent to sequence 
numbers 1-7. 

Two-Page Flipping 

When you use pre-shifted shapes of 
the block shape sequence variety and 
then go for unflickering smooth- 
ness by use of two-page flipping 
animation, the level of complexity 
goes up by several orders of mag- 
nitude. Check out the table and 
you'll see that things can get awk- 
ward pretty quickly. You draw on 
one screen and display the other. One 
screen will get the sequence 1, 3, 5, 
7, 2, 4, 6, 1, 3, etc., while the other 
screen is getting, alternately, 2, 4, 6, 
1,3, 5, 7, etc. 

The strangest part is when <single 
asterisk> HL < horizontal left byte coordinate> 
is o while erasing shape 6, l while 
drawing shape 1 , back to o for erasing 
shape 7 on the opposite screen (dou- 
ble asterisks) and up to l again for 
drawing shape 2. It's important to 
keep good charts of what's happening 
when coding such animation routines. 
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UNERR GOTO 03999 

POKE S.0: REM 8 MUST BE 6ED FOR THIS PROG. TO WORK' ' > ' ' 1 1 ' " ' 11 
HIMEM: 36*64 
0* = CHR$ > 4 > 

TEXT : INPUT "SHOPE TOBLE NOME: ";N»: IF LEN (N$) = THEN 25 
PRINT : INPUT "VOU HONT VOUR SHOPE TO TROUEL: CI? 

WARDS <2> < LEFTWQROS 

>:";0; IF < 1 OR 2 THEN 27 
IF Q = 1 THEN PRINT CHR* < 4 ); '*BL0OOTEST F < CRLL36934 ) M 
IF = 2 THEN PRINT CHR$ < 4 ); "BLOODTEST G (C0LL36934 >" 
PRINT : PRINT "INSERT VOUR SHOPE TOBLE DISK NOW:": GET Of: PRINT CHR* 

<13): COLL 1682: PRINT D* "BLOOD" iN*: PRINT "ODDRESS: " PEEK .43634; + 
PEEK (43635) * 256: PRINT "LENGTH: " PEEK (43616) + PEEK (43617) * 

256 

INPUT "WIDTH: 11 >HD: IMPUT "HE IGHT: " ;HT: INPUT "STEP SIZE:";SS: INPUT "R 
IGHT BOUNDORV OF LEFT SIDE OF SHOPE: ";RB: IF = 1 THEN POKE 235, WD - 
SS: POKE 29,<RB - SS ) + WD: POKE 30, RB - SS 

INPUT "# OF 1ST SHOPE IN SEQUENCE : ";SH: POKE 239.WD: POKE 236. RB: FOt E 
237, HT: POKE 236, SS: IF - 2 THEN POKE 25,39 - HD: POKE 2.35, SS ♦ 39 

IF = 1 THEN POKE 36955,SH + 1: POKE 36987, SH: POKE 36994, SH + 1: POKE 
37029, SH * 5: POKE 37046.SH: POKE 37080.SH - 1: POKE 37084, SH *- 6: POKE 

37133, SH + 1 

IF = 2 THEN POKE 37892.SH + 7: POKE 37096,SH: POKE 37152,SH 5: POKE 
36955, SH ♦ 5: POKE 36987.SH + 6: POKE 36994, SH + 5: POKE 37029, SH + 1 
: POKE 37846, SH + 6 

TEXT : INPUT "DELOV LOOP HI BVTE ( 1-255 ):" ;0: IF < 1 OR • 255 THEN 



POKE 9,0 

PRINT : INPUT "DELOV LOOP LO BVTE < 1-255): "iB: IF B < 1 OR B 



HKN 



POKE 31.B 
COLL 36934 

TEXT : PRINT "$EF: " PEEK (239): PRINT "*EE: " PEEK < 238): PRINT "$ED: " PEEK 
(237): PRINT "$EC:" PEEK (236): PRINT "SE6: " PEEK (235): PRINT "*1D:" 
PEEK -29.': PRINT "$1E:" PEEK (30): PRINT : PRINT 
TEXT : INPUT "00 VOU WONT TO SEE IT SOHE MORE" < V/N >: " »Q$i IF LEN • C'J 

■ = THEN 45 
IF OSr < Qt ■ <; > 89 THEN END 
GOTO 31 
63990 POKE 216,0 
•.-.99! ONERR GOTO 63990 

63992 PK = PEEK (222): IF PL = 254 THEN RESUME 
63995 GOTO 
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Listing 2. ASM1NPUT. 



Now, if you key in TEST F(CALL 
36934) and TEST G (CALL36934) in List- 
ing 4 and 5, and then MANC and 
ASMINPUT in Listings 3 and 2, you'll 
have a two- page flipping block shape 
sec juence asing routine for moving left 
or right asing seven-shape block se- 
quences. Here are some BSAVE ad- 
dresses and lengths for various files in 
these listings: 

Listing 3 MANC,A$900,L1646 (step 
2, 21 high, 4 wide, 7 
shapes) 

Listing 4 TEST F (CALL36934), A 

36864, L324 
Listing 5 TEST G (CALL36934). A 



Listing 6 TEST H (CALL2186), 

A 2048, L224 
When keying in MANC, ignore the 
data, such as from $970 to $9FF, that's 
omitted and key in only data given. 

I recommend POKE 103.1: POKE 
104,96: POKE 24576.0 in your Hello 
(boot) program before running any 
of the programs in this article. 

Let's "make the man walk" by ani- 
mating the seven shapes in MANC 
with the TEST F (CALL36934) and TEST 
G (CALL36934) animation routines. 
(These routines effect right and left 



• 6F 



a .. .«- 00 00 00 00 88 08 m\ Yfo 
i n'.,i,:- 38 88 08 00 08 10 0" 08 

-rrt.t- 08 08 88 08 80 88 80 88 
0918- 18 88 08 08 84 10 00 88 
8920- 08 04 20 00 08 00 02 20 
89^8- 88 80 08 02 48 88 00 00 
09 58- 03 40 m 00 00 13 44 08 
0938- 00 08 88 48 00 00 88 37 
094*- 50 08 88 80 83 60 88 00 
r i9AY 80 83 40 80 80 88 3 40 
*)50- 00 08 08 93 40 80 88 00 
0958- 81 00 88 06 88 83 08 88 
8960- 80 00 03 00 00 00 80 00 
mm- 80 08 88 80 80 00 88 0B 
♦ mi '8. 06F 

6000- 08 60 80 80 80 88 80 00 
0086- 60 00 00 88 00 61 08 00 
0010- 60 08 20 40 08 00 00 21 
0018- 08 80 88 66 12 60 88 80 
8020- 00 12 00 00 00 00 80 00 
0028 008000 00 60000000 
0J-L-V0- 4E 20 00 00 60 2E 40 00 
0038- 00 00 IE 40 00 80 06 0F 
8040- 80 00 00 00 0E 88 80 80 
9O40- 080E000000000E00 
0050- 00 00 00 0E 00 00 00 00 
0058- 0400660600 00 0000 
8060- 08 00 0C 00 00 06 60 00 
6068- 06 66 68 06 00 00 06 60 
*B80 . B6F 

0600- 08 88 08 88 80 80 80 01 
8B08- 48 08 80 08 06 44 08 00 



8810- 80 06 48 00 00 80 00 50 
8618- 88 66 60 08 38 86 86 68 
8620- 80 30 00 00 00 80 30 00 
6628- 60 66 06 36 66 86 80 00 
0630- 38 00 06 00 01 30 08 88 
6638- 68 66 7C 00 00 00 00 38 
0B46- 00 06 00 06 38 00 06 00 
0648- 06 38 66 66 60 08 38 06 
0B50- 00 00 00 38 00 00 00 00 
6658- 16 66 06 66 80 30 00 06 
0B68- 00 60 30 06 00 00 00 00 
6668- 66 66 66 06 00 00 00 60 
+C80.C6F 

tC08- 80 08 80 00 80 00 M0 00 

0C68- 66 66 66 06 01 58 68 00 
0C18- 66 66 66 66 68 66 66 86 
0C20- 01 40 00 06 00 02 40 00 
0C28- 66 66 61 46 86 88 88 81 
0C38- 68 08 06 00 05 70 00 00 
0C38- 00 83 60 66 00 00 01 68 
0C48- 00 00 00 01 68 00 06 00 
0C48- 61 60 66 80 68 61 60 66 
0C50- 00 00 81 60 00 00 00 00 
0C58- 46666666 61 466666 
0C60- 60 01 46 60 08 00 00 68 
6C66- 6666666660000060 
+•080. D6F 

&O00- 06 00 00 80 88 88 88 8E 
6068- 6666666686688686 
0010- 06 00 06 06 00 66 00 06 
6018- 0666666066666666 
8026- 6006666606060686 
6028- 666666660606868F 
0030- 40 06 06 06 87 96 80 86 
0038- 66 07 86 86 66 66 07 86 
6046- 000009 07 86866686 

Listing 3. MA SC. 



6048- 87 66 66 66 66 87 66 66 
8050- 00 80 07 00 06 86 89 82 
6058- 6996666666666660 
8060- 89 66 69 80 69 89 89 69 
6068- 6666668666896609 
*E60.E6F 

0E80- 00 00 00 00 00 86 86 66 
0E88- 66 66 66 68 12 66 66 66 
8E10- 00 60 06 69 69 89 12 69 
0E18- 6666662260668660 
0E20- 24 88 89 89 89 14 66 09 
6E28- 69 66 14 66 66 69 66 1C 
0ET39~ 00 00 00 00 1C 00 00 00 
9E38- 68 1C 69 99 89 96 1C 69 
0E40~ 00 00 00 1 C 00 00 00 00 
6E48- 1C 66 66 89 66 1C 66 96 
8E56- 8000 1C8909990998 
9E56- 96666666 18 969606 
0E60 - 00 18 00 00 00 00 00 00 
8E68- 6669666996996969 
*F06.F8F 

t»F00- 00 00 00 08 80 00 00 88 

8F66- 86 66 66 66 88 08 68 68 

8F18- 82 84 00 00 66 62 68 06 

6F18- 86 68 81 18 66 66 66 61 

0F28- 18 86688666566686 

6F28- 66 68 58 66 66 66 64 72 

0F38- 80 66 86 02 74 66 86 80 

6F38- 81 74 88 88 86 66 78 66 

8F40- 86 86 80 79 69 89 89 69 

6F48- 7666666060768080 

8F58- 88 80798989898929 

8F58- 8666666666696969 

0F60- 08 66 69 09 09 89 69 69 

8F68- 89 69 69 69 69 89 66 69 
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9818- 

9KS 
9t3» 
BB38 

984S- 

9858- 

9878- 
9878- 

9888- 
9898— 
9698— 
9808- 



9BC8- 
98C8- 
9808- 
9808- 
99E8- 
98E8- 
99F8- 
98F8- 
9188- 
9188- 
9118- 
9118- 
9128- 
9128- 
9138- 
9138- 
9148- 



W US 
84 C8 
09 88 
02 88 
FE 02 
26 88 
FB C8 
EO CS 

84 CS 
F3 «9 
F3 ft9 
54 C8 

85 FT 
85 FX 
98 09 
85 E6 
98 09 
EE 09 
98 09 
54 C« 
C6 87 
28 88 
D8 FD 

87 04 
D8 F9 

88 05 
FF 28 
88 08 
EC CS 

05 FE 
85 FF 
98 04 
88 08 
FF 88 
18 05 
EF 85 
88 98 

06 IF 
E6 87 
OD 88 
68 28 



06 87 
4C 84 

85 FO 

08 88 
88 01 
18 E6 
FF F8 

86 05 
EC B8 
88 80 
48 85 

09 82 
05 EF 
05 ED 
98 80 
09 81 
82 85 
88 80 
48 85 
28 08 
05 87 
98 04 
88 08 
EC E6 
18 05 
EF 85 

88 98 
48 09 
FE C6 
C5 EB 
05 ID 

89 06 
F8 04 
08 F9 
FF C5 
FE 09 
68 28 
CO 08 
E6 87 
C8 C9 



CO E8 
98 98 
05 FD 
28 11 
FO 51 
FO 08 

84 C4 

86 C9 
03 68 
52 C8 
E6 09 

85 87 
85 FE 
85 FD 
55 C8 
85 87 

87 09 
55 C8 
E6 09 
98 4C 
C9 86 
89 06 
F8 09 
FE E6 
FF C5 
FE 09 
68 05 

87 85 
FF 88 

08 88 
85 FE 
IF CO 
EC E6 

09 82 
EE 98 

88 85 
88 98 
FD 88 
28 88 
88 88 
88 



88 F8 
85 FB 
85 86 
F4 04 
26 91 
82 E6 
FF B8 
FF F8 
28 E2 
28 D8 
88 80 
09 88 
09 88 
28 88 
09 28 
28 88 
28 85 
28 08 
88 80 
85 98 
08 20 
IF CO 
81 85 
FF 88 
EE 98 
88 85 
87 C9 

87 04 
08 F9 
05 IE 
28 88 
08 FD 
FE E6 
85 87 

88 05 
FF 28 
04 89 
D8 F8 
98 18 
81 68 



Listing 4. TEST F (CALL36934). 



9880— 00 


89 06 


a f 




f 


►1H 


1 n 


9888- 84 


C8 4C 








95 


FB 


9818- 09 


00 85 


f. q 


OS 


f d 


95 


Mb 


98 1 8— 02 


mi [in 




TO 


1 1 


F 4 


OA 


9828- FE 


He W 


H 1 


CD 


s 1 


tc 


9 1 


9828- 26 




F R 


FFl 




rv 


f b 
to 


9838- FB 


C8 FE 


F8 


04 


(4 


FF 




9838- EO 


C6 86 


05 


0b 


C9 


FF 


f M 


9848- 84 


C5 FC 


80 


D3 


eg 




F? 


9848- F3 


09 88 


8D 


5? 


f B 


20 


D8 


9858- F3 


09 48 


85 


F b 


HI 




(in 


9858- 54 


C8 09 


9b 


85 


07 


05 


1 9 


9868- 85 


FE 09 


27 


05 


FL 


09 


MM 


9868- 85 


FC 05 


ED 


85 


f d 


26 


HH 


9878- 98 


09 88 


80 






"J 


^M 


9878- 85 


E6 09 87 


DO 


M ? 

ri r 


Pfl 
^ r> 




9888- 98 


09 86 85 


07 


09 


,•'0 


85 


9888- E6 


09 88 


80 


55 


*~0 


?0 




9898- 98 


09 48 85 


F 6 


P9 


HH 


80 


9898- 54 


C8 28 


M0 




44 


95 


SO 


9808- E6 


87 05 




C9 


82 


!)M 




9808- 28 


88 98 


UA 


09 


Mti 


]f 


CO 


9888- 08 


EO 88 


U0 


F8 


P9 


Li J 

Br 


OJ 


98B8- 87 


04 EC 


Cb 


f.[ 


rb 


T r 


itU 


98C8- 08 


F9 05 


FE 


rs 


rr 


HH 


1 J 


98C8- 18 


05 FE 65 


rr 




1 n 

1 u 


»r > 


9808- FE 


65 EC 


85 


IC 




P7 
*- • 


"J 


9808- FE 


05 19 


85 


I f 


'Ha 




(ki 
>»1 


98E8- 68 


05 87 C9 


rlo 




ar 


H 1 


98E8- 81 


85 87 


(M 




rr 
Lb 


ft 


rr 

t b 


9QT8 FF 


88 08 


F9 


Hj 


1 L 


ft, 


r n 


98E8- 08 


8E 38 


05 


i n 
J u 


r c , 

L J 




OJ 


9188- 88 


05 IE 


ss 


c r 
r r 


HJ 


i n 

IU 


on 
o J 


9188- FE 


28 88 


98 


U4 


n-i 


Lit-. 


1 r 


9118- CO 


D8 FD 


88 


00 


F8 


FW 


EC 


9118- C6 


FE C6 EF 


88 


00 


F9 


09 


9128- 86 


85 87 05 


FE 


C3 


08 


00 


9128- 88 


09 27 85 


FE 


H5 


19 


85 


9138- FF 


28 88 


H0 


80 


28 


MM 


99 


9138- 04 


89 06 


IF 


CO 


oh 


FD 


«8 


9148- 08 


F8 CS 


97 


Cb 


07 


HA 


MM 


9148- 98 


18 OD 80 


C8 


C9 


KM 


99 


9158- 81 


68 68 28 


bM 




^0 


0M 


Luting 5. TEST G (CALL36934). 



♦800. 8E2 


















no 


119 


0h 


07 


CO 


E8 


96 


F8 


M80H 


FV4 


ce 


4f 


94 


98 


9K 


85 


EB 


0810- 


09 


MM 


95 


FO 


05 


FD 


85 


86 




ii j 


96 


OH 


MM 


7M 


l I 


F4 


04 




( t 

' r 


07 


00 


81 


2b 


81 


FO 


88 




1 o 


E6 


FO 


OM 


62 


E6 


FB 


C8 


0830- 


\-y 


F0 


04 


C4 


FF 


B8 


EC 


C6 


8838— 


— 


05. 


0b 


C9 


FF 


FB 


64 


C5 




rr 


R0 


05 


»>M 


00 


09 


Qfi 


87 




rti 


f 


00 


F0 


0-1 


C8 


4C 


48 


8858 




98 


85 


TB 


09 


8>^ 


85 


FO 


8858 — 




F0 


85 


Mb. 


02 


00 


06 


88 


ooco_ 


< M 


11 


F4 


04 


FE 


07 


96 


01 




1 O 


51 


26 


91 


2€. 


88 


18 


E6 


8878— 


r M 


00 


0? 


EG 


FB 


CO 


FF 


F8 


ftOTft- 

WJlU 




C4 


FT 


96 


FO 


ee 


0b, 


05 






C9 


FF 


F9 


04 


C5 


FC 


B8 




LU 


F,H 


05 


FD 


85 


96 


02 


88 


8898- 


00 


86 


?0 


1 1 


F4 


18 


04 


FF 


8838- 


09 


MM 


85 


98 


85 


CE 


81 


26 


0808- 


?0 


91 


78 




92 


90 


K 


E6 


Mja-in 


08 


C9 


96 


BM 


0? 




M2 


E6 


0888- 


CF 


05 


08 


D9 


99 


81 


26 


29 


8888- 


71 


91 


26 


4.; 


C4 


98 


61 


26 


08C0- 


M'i 


96 


91 


26 


C4 


FE 


F8 


89 


B8C8- 


C8 


18 


0-:, 


CF 


C9 


01 


4C 


98 


0808- 


08 


C6 


06 


05 


Mb 




FT 


F9 


8808- 


04 


C5 


FC 


80 


Bl 


68 


FHi 


88 


Listing 6. 


TEST 


H (CALI.21H6). 



movement.) The Basie driver pro- 
gram we'll use (to be RUN now) is 
asminput. Give the shape table name 
of MANC. (I'm assuming you've sii\ ed 
the necessary files.) Say RIGHTWARDS 
for direction of travel. Specify a 
width of 4. a height of 21. a step size ol 



Circle 237 on Reader Service cara. 



How to Choose the Best Modem For Your 
Apple: Now SSN Offers You THE SOURCE 

Count the Yes-es. SSM s 

Apple Modem Card: the most 
advanced features for the least 
money. No external equipment 
required. All other modems are 
now obsolete. 

And with SSM's Transend soft- 
ware, your Apple can send 
electronic mail or talk to other 
computers or information ser- 
vices such as the Source and 
Dow Jones News/Retrieval® (The 
ModemCard is also compatible 
with software for the Micro- 
modem II). 

The SSM ModemCard: The only 
choice for choosy Apple owners 
Available from your local compu- 
ter dealer. Satisfaction is guaran- 
teed. Or your money back. 




Fits completely inside Apple 



NO 



, Touch -Tone"* Dialing 



NO 



" Single-Modem-Chip" Reliability 



No 



Audio Monitor No No 


Yes 


Self Testing 


Yes Yes 


Yes 



Warranty period 



2yr 



includes SOURCE Offer 



No 



No 



Yes 



Yes 



Yes 



No 



Yes 



1 yr 



2vr 



No 



Yes 









S325 



Trademarks Miaomodem Haves Microcomputer Products, inc Appiecat n Novation Mooemcard SSM Microcomputer 

Products inc The Source Source Telecomputing Corporation, a subsidiary of the Reader s Digest Association Dow Jones News/Retrieval 

Dow Jones & Company, inc Apple is a registered trademark ol Apple Corporation 



==fff 

SSM Microcomputer Products Inc 
2190 Paragon Drive, San Jose, 
CA 95131 (408) 946-7400, 
Telex 171171 SSM SNJ 
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Circle 103 on Reader Service card 

fT) The House-Ware Genies 

★ The Mail Genie 

★ The Pantry (,enie 

★ The Recipe Genie 

★ The Calendar Genie 
<V ★ The Insurance Genie 

At last, the Turn-Key Programs that 
allow Dad to influence Mom. that an 
Apple " C omputer is a modern day 
necessity. 



-Fudge It!- 



< 



lnlroduclor> 
Price 



$29.95 



Developed 
B) 

SOI flUKN < KNTKR 

FOR RrSr \H< H & INNO\ \ I ION 

P.O. Box 1713 

HalliesburK. Ms 39403 

Dealer Inquiries Invited 



Circle 102 on Reader Service card 



LOOK at these prices! 

RMD6K COLOR 113'' . S289 
HRVCS SMflRTMODCM 1 200 499 

HRVCS MICROMODCM 11 265 

SRTURN 128K CARD 4 25 

SPTURN RCCCLCRfiTOR 1 1 499 
MICROSOFT MULTIPLflN . . .180 
VIDGC 80 COL CflRu VIDCOTCRM 227 
VID«UL1PRT€RM 339 
ORfiNGC MICRO GRRPPL€R + 1 25 

INTERACTIVE Phl 'O 'ARD 13S 
tftSI ilD€ UUILDrnRD COPV DCVi'6 108 

Of/IP SeRIAlft5VNCH CARE 129 
R H SUPtfl FAN 1 1 70 
PHS JPfRFPN 11 Zi '.CR RRV 99 
ft imc-t Vonev G"Ocr C tier's Check. 8onk Wire 
hector, RIIouj -uecks cleoraricc COD'S 
Zt - Certified Checks only N.V Res Rod 8 \% ST 
1C i 5 00 dipping Cnorge on oil orders 

Pease r»tlu<te your phone numbe' 

Ml CRO MVS7IQUC 

'3- l83roSt. Rushing N.V113& 
812) 4S4-619C 

Wrtfe 'o' Additional Spec/*' 



e '> I «aaet Se c. 



Scotch Diskettes 

R« Sci cr* diskettes io Keep your vaiu- 
i a h e Depen labie Scotch diskettes 
a e t* ■■' < jn .i guaranteed error-free Trie low 
atyassvity saves your read/write heads 
I e n r uiaiib'e wi'h mc^st diSKetle drives 




{800)235-4137 




Dealer Inquiries 

invited 



PACIFIC 
EXCHANGES 

100 Foothill Blvc 
SanLuisObtspo C 
9 vMl In Cai a 

1800) 592-5935 > 
|805| : .4 M037 



2, a right boundary of 34, and a first 
shape in sequence of 1. Then give a 
delay loop high byte of 70 and a delay 
loop low byte of 255. 

This results in a realistic walking 
speed and no flicker problems (due to 
the two-page flipping animation in 
these routines), but the two-step 
movements are somewhat notice- 
able. A good way to improve this 
would be to have 14 shapes in the se- 
quence and do one-step movements, 
still incrementing the horizontal 
byte coordinate by 2 at the end of 
the sequence, but using only one half 
the delay time. Notice that when hr 
(horizontal right coordinate) gets to 
34 the sequence restarts. That's the 34 
you input above. Hit any key and do 
it again, but use a del a; p high 
byte of 35 so things move twice as 
fast. (Ignore the $EE:34 and other 
data given on the screen; this just in- 
dicates how the variables are doing 
once the action stops.) 

Now he's marching along. You can 
see tha' the step movements within 
block shape parameters are no longer 
noticeable. Now try a step value of 1 
and a delay loop high byte of 70 
again. Notice how block shape se- 
quences meant for a step value of 2 do 
weird things with a value of I. But 
also notice that the intra-block step 
movements, being only 1 dot each, 
are much less obvious with a step 
value of 1. These latter two exper- 
iments should support the idea that 
14 one- step shapes with a horizontal 
byte coordinate increment of 2 will 
yield the smoothest results. (Inciden- 
tally, when moving to the left, choose 
LEFTWARDS, but for the other inputs 
choose the same as you did for RIGHT- 
W \HDS.) 

Sequence Creation 

Now kev in TEST H (CALL2186) and 
SEQUENCE CREATOR, Listings 6 and 
1 (Don't forget about the POKE 
1(>4.%, etc., as advised previously.) 
Then RUN SEQUENCE CREATOR, hit- 
ting return upon entry into the pro- 
mam. Choose (1) LOAD IN BLOCK 
SHAPE TABLE and give MANC as the 
shape table name. Then specify 
shape number I, VTOP of LO, VBOTof 
31, HRIGHT of 5, HLEFT of 1, and no, 
you clou t need any more shapes 



(when asked). 

Now, in the menu, choose (3) 
DEFINE BLOCK SHAPE WITH PADDLES, 
read the instructions, and move the 
paddles to find out which one makes 
the dot cursor move horizontally. 
We'll call this paddle your X paddle 
and the other your Y paddle. Move 
the dot cursor just outside the upper 
left corner of the imaginary rec- 
tangular block around the man 
shape, and hit the X paddle button. 
Now move to the lower right corner 
and hit the Y paddle button — but not 
until you've moved at least 7 dots to 
the right of that position, to make 
room for intra-block step move- 
ments. (Use a 14-dot offset if your 
step value is 2 and a 21 -dot offset if 
your step value is 3, and so on.) Seven 
times the step value to the right 
(lower) of your block shape is where 
you'll hit the Y button. 

When asked if the rectangle 
(which defines the block shape pa- 
rameters) is okay, answer yes or no. 
No gets you another chance. Now 
choose (2') GIVE HORIZONTAL STEP 
SIZE FOR BLOCK SHAPE SEQUENCE & 
SAVE ENTIRE SEQUENCE, and specify 
1 for step size, 7 for number of shapes 
in sequence, 1 for number of first 
block shape in sequence to be saved, 
and Y (yes) for "Are you ready for this 
sequence?'' Keep your eyes peeled, 
and you'll see all seven shapes made 
by shifting (after which each in turn 
will be scanned and the resultant 
data saved in memory). When asked 
for file name use TEST and give 7 as 
the number of the last shape in the 
shape table. 

Once the sequence is saved, use it 
when you RUN ASMINPUT to cheek the 
latter out. Step size must be I, unless 
you used something greater than that 
in your sequence creation. Unless 
you've made a mistake the man will 
float very smoothly. 

If all this sounds like it's right up 
your alley, drop me a line for more 
information on routines and utilities 
for graphics, sounds and more. 

Next time I'll dissect the fastest 
color- fill algorithm around to show- 
how it works. You'll get a chance to 
save it, a program to use it with and a 
palette of colors for posterity. See you 
then! ■ 
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